home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / gauge / agavb25 / gscales.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-01-16  |  17.9 KB  |  530 lines
  1. VERSION 2.00
  2. Begin Form ScaleDemo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Scales"
  6.    ClientHeight    =   4515
  7.    ClientLeft      =   2565
  8.    ClientTop       =   4680
  9.    ClientWidth     =   8865
  10.    Height          =   4920
  11.    Left            =   2505
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MDIChild        =   -1  'True
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4515
  17.    ScaleWidth      =   8865
  18.    Top             =   4335
  19.    Width           =   8985
  20.    Begin Frame Frame1 
  21.       BackColor       =   &H00C0C0C0&
  22.       Caption         =   "Scale ID"
  23.       FontBold        =   -1  'True
  24.       FontItalic      =   0   'False
  25.       FontName        =   "Arial"
  26.       FontSize        =   8.25
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   855
  30.       Left            =   4620
  31.       TabIndex        =   0
  32.       Top             =   120
  33.       Width           =   1035
  34.       Begin OptionButton Option1 
  35.          BackColor       =   &H00C0C0C0&
  36.          Caption         =   "1"
  37.          FontBold        =   -1  'True
  38.          FontItalic      =   0   'False
  39.          FontName        =   "System"
  40.          FontSize        =   9.75
  41.          FontStrikethru  =   0   'False
  42.          FontUnderline   =   0   'False
  43.          Height          =   255
  44.          Index           =   1
  45.          Left            =   165
  46.          TabIndex        =   2
  47.          Top             =   510
  48.          Width           =   615
  49.       End
  50.       Begin OptionButton Option1 
  51.          BackColor       =   &H00C0C0C0&
  52.          Caption         =   "0"
  53.          FontBold        =   -1  'True
  54.          FontItalic      =   0   'False
  55.          FontName        =   "System"
  56.          FontSize        =   9.75
  57.          FontStrikethru  =   0   'False
  58.          FontUnderline   =   0   'False
  59.          Height          =   255
  60.          Index           =   0
  61.          Left            =   165
  62.          TabIndex        =   1
  63.          Top             =   255
  64.          Value           =   -1  'True
  65.          Width           =   615
  66.       End
  67.    End
  68.    Begin Frame Frame5 
  69.       BackColor       =   &H00C0C0C0&
  70.       Caption         =   "Scale Angle Properties"
  71.       FontBold        =   -1  'True
  72.       FontItalic      =   0   'False
  73.       FontName        =   "Arial"
  74.       FontSize        =   8.25
  75.       FontStrikethru  =   0   'False
  76.       FontUnderline   =   0   'False
  77.       Height          =   1035
  78.       Left            =   4200
  79.       TabIndex        =   3
  80.       Top             =   2145
  81.       Width           =   4300
  82.       Begin HScrollBar HScroll1 
  83.          Height          =   240
  84.          Index           =   4
  85.          Left            =   1590
  86.          Max             =   360
  87.          TabIndex        =   4
  88.          Top             =   345
  89.          Width           =   2000
  90.       End
  91.       Begin HScrollBar HScroll1 
  92.          Height          =   240
  93.          Index           =   5
  94.          Left            =   1590
  95.          Max             =   360
  96.          TabIndex        =   5
  97.          Top             =   585
  98.          Width           =   2000
  99.       End
  100.       Begin Label Label2 
  101.          AutoSize        =   -1  'True
  102.          BackStyle       =   0  'Transparent
  103.          Caption         =   " 0"
  104.          Height          =   195
  105.          Index           =   5
  106.          Left            =   3720
  107.          TabIndex        =   6
  108.          Top             =   600
  109.          Width           =   180
  110.       End
  111.       Begin Label Label2 
  112.          AutoSize        =   -1  'True
  113.          BackStyle       =   0  'Transparent
  114.          Caption         =   " 0"
  115.          Height          =   195
  116.          Index           =   4
  117.          Left            =   3720
  118.          TabIndex        =   7
  119.          Top             =   360
  120.          Width           =   180
  121.       End
  122.       Begin Label Label1 
  123.          AutoSize        =   -1  'True
  124.          BackStyle       =   0  'Transparent
  125.          Caption         =   "ScaleStartAngle:"
  126.          FontBold        =   0   'False
  127.          FontItalic      =   0   'False
  128.          FontName        =   "Arial"
  129.          FontSize        =   8.25
  130.          FontStrikethru  =   0   'False
  131.          FontUnderline   =   0   'False
  132.          Height          =   210
  133.          Index           =   4
  134.          Left            =   285
  135.          TabIndex        =   8
  136.          Top             =   330
  137.          Width           =   1215
  138.       End
  139.       Begin Label Label1 
  140.          AutoSize        =   -1  'True
  141.          BackStyle       =   0  'Transparent
  142.          Caption         =   "ScaleStopAngle:"
  143.          FontBold        =   0   'False
  144.          FontItalic      =   0   'False
  145.          FontName        =   "Arial"
  146.          FontSize        =   8.25
  147.          FontStrikethru  =   0   'False
  148.          FontUnderline   =   0   'False
  149.          Height          =   210
  150.          Index           =   5
  151.          Left            =   285
  152.          TabIndex        =   9
  153.          Top             =   585
  154.          Width           =   1200
  155.       End
  156.    End
  157.    Begin Frame Frame4 
  158.       BackColor       =   &H00C0C0C0&
  159.       Caption         =   "Scale Origin Properties"
  160.       FontBold        =   -1  'True
  161.       FontItalic      =   0   'False
  162.       FontName        =   "Arial"
  163.       FontSize        =   8.25
  164.       FontStrikethru  =   0   'False
  165.       FontUnderline   =   0   'False
  166.       Height          =   1035
  167.       Left            =   4200
  168.       TabIndex        =   20
  169.       Top             =   3270
  170.       Width           =   4300
  171.       Begin HScrollBar HScroll1 
  172.          Height          =   240
  173.          Index           =   2
  174.          Left            =   1620
  175.          Max             =   140
  176.          Min             =   -140
  177.          TabIndex        =   10
  178.          Top             =   330
  179.          Width           =   2000
  180.       End
  181.       Begin HScrollBar HScroll1 
  182.          Height          =   240
  183.          Index           =   3
  184.          Left            =   1620
  185.          Max             =   140
  186.          Min             =   -140
  187.          TabIndex        =   27
  188.          Top             =   570
  189.          Width           =   2000
  190.       End
  191.       Begin Label Label2 
  192.          AutoSize        =   -1  'True
  193.          BackStyle       =   0  'Transparent
  194.          Caption         =   " 0"
  195.          Height          =   195
  196.          Index           =   2
  197.          Left            =   3735
  198.          TabIndex        =   11
  199.          Top             =   345
  200.          Width           =   180
  201.       End
  202.       Begin Label Label1 
  203.          AutoSize        =   -1  'True
  204.          BackStyle       =   0  'Transparent
  205.          Caption         =   "ScaleOriginX:"
  206.          FontBold        =   0   'False
  207.          FontItalic      =   0   'False
  208.          FontName        =   "Arial"
  209.          FontSize        =   8.25
  210.          FontStrikethru  =   0   'False
  211.          FontUnderline   =   0   'False
  212.          Height          =   210
  213.          Index           =   2
  214.          Left            =   495
  215.          TabIndex        =   12
  216.          Top             =   330
  217.          Width           =   975
  218.       End
  219.       Begin Label Label1 
  220.          AutoSize        =   -1  'True
  221.          BackStyle       =   0  'Transparent
  222.          Caption         =   "ScaleOriginY:"
  223.          FontBold        =   0   'False
  224.          FontItalic      =   0   'False
  225.          FontName        =   "Arial"
  226.          FontSize        =   8.25
  227.          FontStrikethru  =   0   'False
  228.          FontUnderline   =   0   'False
  229.          Height          =   210
  230.          Index           =   3
  231.          Left            =   495
  232.          TabIndex        =   13
  233.          Top             =   585
  234.          Width           =   990
  235.       End
  236.       Begin Label Label2 
  237.          AutoSize        =   -1  'True
  238.          BackStyle       =   0  'Transparent
  239.          Caption         =   " 0"
  240.          Height          =   195
  241.          Index           =   3
  242.          Left            =   3735
  243.          TabIndex        =   14
  244.          Top             =   570
  245.          Width           =   180
  246.       End
  247.    End
  248.    Begin Frame Frame3 
  249.       BackColor       =   &H00C0C0C0&
  250.       Caption         =   "Scale Limit Properties"
  251.       FontBold        =   -1  'True
  252.       FontItalic      =   0   'False
  253.       FontName        =   "Arial"
  254.       FontSize        =   8.25
  255.       FontStrikethru  =   0   'False
  256.       FontUnderline   =   0   'False
  257.       Height          =   1035
  258.       Left            =   4215
  259.       TabIndex        =   19
  260.       Top             =   1035
  261.       Width           =   4300
  262.       Begin HScrollBar HScroll1 
  263.          Height          =   240
  264.          Index           =   0
  265.          Left            =   1575
  266.          Max             =   100
  267.          TabIndex        =   22
  268.          Top             =   345
  269.          Width           =   2000
  270.       End
  271.       Begin HScrollBar HScroll1 
  272.          Height          =   240
  273.          Index           =   1
  274.          Left            =   1575
  275.          Max             =   100
  276.          TabIndex        =   21
  277.          Top             =   585
  278.          Width           =   2000
  279.       End
  280.       Begin Label Label2 
  281.          AutoSize        =   -1  'True
  282.          BackStyle       =   0  'Transparent
  283.          Caption         =   " 0"
  284.          Height          =   195
  285.          Index           =   0
  286.          Left            =   3690
  287.          TabIndex        =   26
  288.          Top             =   360
  289.          Width           =   180
  290.       End
  291.       Begin Label Label1 
  292.          Alignment       =   1  'Right Justify
  293.          AutoSize        =   -1  'True
  294.          BackStyle       =   0  'Transparent
  295.          Caption         =   "ScaleMaxValue:"
  296.          FontBold        =   0   'False
  297.          FontItalic      =   0   'False
  298.          FontName        =   "Arial"
  299.          FontSize        =   8.25
  300.          FontStrikethru  =   0   'False
  301.          FontUnderline   =   0   'False
  302.          Height          =   210
  303.          Index           =   0
  304.          Left            =   390
  305.          TabIndex        =   25
  306.          Top             =   330
  307.          Width           =   1170
  308.       End
  309.       Begin Label Label1 
  310.          Alignment       =   1  'Right Justify
  311.          AutoSize        =   -1  'True
  312.          BackStyle       =   0  'Transparent
  313.          Caption         =   "ScaleMinValue:"
  314.          FontBold        =   0   'False
  315.          FontItalic      =   0   'False
  316.          FontName        =   "Arial"
  317.          FontSize        =   8.25
  318.          FontStrikethru  =   0   'False
  319.          FontUnderline   =   0   'False
  320.          Height          =   210
  321.          Index           =   1
  322.          Left            =   420
  323.          TabIndex        =   24
  324.          Top             =   600
  325.          Width           =   1110
  326.       End
  327.       Begin Label Label2 
  328.          AutoSize        =   -1  'True
  329.          BackStyle       =   0  'Transparent
  330.          Caption         =   " 0"
  331.          Height          =   195
  332.          Index           =   1
  333.          Left            =   3690
  334.          TabIndex        =   23
  335.          Top             =   600
  336.          Width           =   180
  337.       End
  338.    End
  339.    Begin AGAUGE Gauge1 
  340.       Angle           =   0
  341.       AutoRedraw      =   -1  'True
  342.       AVersion        =   2.5
  343.       BackgroundColor =   &H00C0C0C0&
  344.       BevelInner      =   1  ' 1 - Raised
  345.       BevelOuter      =   2  ' 2 - Inset
  346.       BevelWidth      =   2
  347.       BorderType      =   1  ' 1 - Bevel
  348.       BorderWidth     =   2
  349.       FontID          =   1
  350.       FrameColor      =   &H00000000&
  351.       FrameScaleX     =   0
  352.       FrameScaleY     =   0
  353.       FrameStyle      =   0  ' 0 - None
  354.       Height          =   4185
  355.       Left            =   120
  356.       MouseControl    =   -1  'True
  357.       OutlineAlign    =   0  ' 0 - Left 
  358.       OutlineColor    =   &H00000000&
  359.       OutlineTitle    =   ""
  360.       OutlineWidth    =   0
  361.       Radius          =   0
  362.       Shape           =   ""
  363.       TabIndex        =   18
  364.       Top             =   90
  365.       Value           =   0
  366.       Width           =   4005
  367.       XScale          =   0
  368.       YScale          =   0
  369.       ZLoad           =   GSCALES.FRX:0000
  370.    End
  371.    Begin Frame Frame2 
  372.       BackColor       =   &H00C0C0C0&
  373.       Caption         =   "Scale Direction Property"
  374.       FontBold        =   -1  'True
  375.       FontItalic      =   0   'False
  376.       FontName        =   "Arial"
  377.       FontSize        =   8.25
  378.       FontStrikethru  =   0   'False
  379.       FontUnderline   =   0   'False
  380.       Height          =   855
  381.       Left            =   5805
  382.       TabIndex        =   15
  383.       Top             =   120
  384.       Width           =   2310
  385.       Begin OptionButton Option2 
  386.          BackColor       =   &H00C0C0C0&
  387.          Caption         =   "Counter Clockwise"
  388.          FontBold        =   0   'False
  389.          FontItalic      =   0   'False
  390.          FontName        =   "Arial"
  391.          FontSize        =   8.25
  392.          FontStrikethru  =   0   'False
  393.          FontUnderline   =   0   'False
  394.          Height          =   240
  395.          Index           =   1
  396.          Left            =   150
  397.          TabIndex        =   17
  398.          Top             =   510
  399.          Width           =   1965
  400.       End
  401.       Begin OptionButton Option2 
  402.          BackColor       =   &H00C0C0C0&
  403.          Caption         =   "Clockwise"
  404.          FontBold        =   0   'False
  405.          FontItalic      =   0   'False
  406.          FontName        =   "Arial"
  407.          FontSize        =   8.25
  408.          FontStrikethru  =   0   'False
  409.          FontUnderline   =   0   'False
  410.          Height          =   240
  411.          Index           =   0
  412.          Left            =   150
  413.          TabIndex        =   16
  414.          Top             =   270
  415.          Value           =   -1  'True
  416.          Width           =   1545
  417.       End
  418.    End
  419. Sub Form_Load ()
  420.     hscroll1(0) = gauge1.ScaleMaxValue
  421.     hscroll1(1) = gauge1.ScaleMinValue
  422.     hscroll1(2) = gauge1.ScaleOriginX * 100
  423.     hscroll1(3) = gauge1.ScaleOriginY * 100
  424.     hscroll1(4) = gauge1.ScaleStartAngle
  425.     hscroll1(5) = gauge1.ScaleStopAngle
  426.     option2(gauge1.ScaleDirection) = True
  427. End Sub
  428. Sub HScroll1_Change (index As Integer)
  429.     Select Case index
  430.         Case 0
  431.             If gauge1.ScaleMinValue < hscroll1(0) Then
  432.                 gauge1.ScaleMaxValue = hscroll1(0)
  433.                 gauge1.TicStopValue = hscroll1(0) + 1
  434.                 If gauge1.ScaleID = 0 And gauge1.NeedleValue > hscroll1(0) Then
  435.                     gauge1.NeedleValue = hscroll1(0)
  436.                 End If
  437.                 If gauge1.ScaleID = 0 Then
  438.                     gauge1.AnnularStopValue = hscroll1(0)
  439.                 End If
  440.             Else
  441.                 hscroll1(0) = gauge1.ScaleMinValue
  442.             End If
  443.             label2(0) = hscroll1(0)
  444.         Case 1
  445.             If hscroll1(1) < gauge1.ScaleMaxValue Then
  446.                 gauge1.ScaleMinValue = hscroll1(1)
  447.                 gauge1.TicStartValue = hscroll1(1)
  448.                 If gauge1.ScaleID = 0 And gauge1.NeedleValue < hscroll1(1) Then
  449.                     gauge1.NeedleValue = hscroll1(1)
  450.                 End If
  451.                 If gauge1.ScaleID = 0 Then
  452.                     gauge1.AnnularStartValue = hscroll1(1)
  453.                 End If
  454.             Else
  455.                 hscroll1(1) = gauge1.ScaleMaxValue
  456.             End If
  457.             label2(1) = hscroll1(1)
  458.         Case 2
  459.             gauge1.ScaleOriginX = hscroll1(2) / 100
  460.             label2(2) = hscroll1(2) / 100
  461.         Case 3
  462.             gauge1.ScaleOriginY = hscroll1(3) / 100
  463.             label2(3) = hscroll1(3) / 100
  464.         Case 4
  465.             gauge1.ScaleStartAngle = hscroll1(4)
  466.             label2(4) = hscroll1(4)
  467.         Case 5
  468.             gauge1.ScaleStopAngle = hscroll1(5)
  469.             label2(5) = hscroll1(5)
  470.     End Select
  471. End Sub
  472. Sub HScroll1_Scroll (index As Integer)
  473.     Select Case index
  474.         Case 0
  475.             If gauge1.ScaleMinValue < hscroll1(0) Then
  476.                 gauge1.ScaleMaxValue = hscroll1(0)
  477.                 gauge1.TicStopValue = hscroll1(0) + 1
  478.                 If gauge1.ScaleID = 0 And gauge1.NeedleValue > hscroll1(0) Then
  479.                     gauge1.NeedleValue = hscroll1(0)
  480.                 End If
  481.                 If gauge1.ScaleID = 0 Then
  482.                     gauge1.AnnularStopValue = hscroll1(0)
  483.                 End If
  484.             Else
  485.                 hscroll1(0) = gauge1.ScaleMinValue
  486.             End If
  487.             label2(0) = hscroll1(0)
  488.         Case 1
  489.             If hscroll1(1) < gauge1.ScaleMaxValue Then
  490.                 gauge1.ScaleMinValue = hscroll1(1)
  491.                 gauge1.TicStartValue = hscroll1(1)
  492.                 If gauge1.ScaleID = 0 And gauge1.NeedleValue < hscroll1(1) Then
  493.                     gauge1.NeedleValue = hscroll1(1)
  494.                 End If
  495.                 If gauge1.ScaleID = 0 Then
  496.                     gauge1.AnnularStartValue = hscroll1(1)
  497.                 End If
  498.             Else
  499.                 hscroll1(1) = gauge1.ScaleMaxValue
  500.             End If
  501.             label2(1) = hscroll1(1)
  502.         Case 2
  503.             gauge1.ScaleOriginX = hscroll1(2) / 100
  504.             label2(2) = hscroll1(2) / 100
  505.         Case 3
  506.             gauge1.ScaleOriginY = hscroll1(3) / 100
  507.             label2(3) = hscroll1(3) / 100
  508.         Case 4
  509.             gauge1.ScaleStartAngle = hscroll1(4)
  510.             label2(4) = hscroll1(4)
  511.         Case 5
  512.             gauge1.ScaleStopAngle = hscroll1(5)
  513.             label2(5) = hscroll1(5)
  514.     End Select
  515. End Sub
  516. Sub Option1_Click (index As Integer)
  517.     gauge1.ScaleID = index
  518.     gauge1.TicID = index
  519.     hscroll1(0) = gauge1.ScaleMaxValue
  520.     hscroll1(1) = gauge1.ScaleMinValue
  521.     hscroll1(2) = gauge1.ScaleOriginX * 100
  522.     hscroll1(3) = gauge1.ScaleOriginY * 100
  523.     hscroll1(4) = gauge1.ScaleStartAngle
  524.     hscroll1(5) = gauge1.ScaleStopAngle
  525.     option2(gauge1.ScaleDirection) = True
  526. End Sub
  527. Sub Option2_Click (index As Integer)
  528.     gauge1.ScaleDirection = index
  529. End Sub
  530.